home *** CD-ROM | disk | FTP | other *** search
/ Exploring Where & Why / Exploring Where & Why.iso / pc / MODULES / LESSON02 / ACT02A / common2.cst / 00103_go to season.ls < prev    next >
Encoding:
Text File  |  2003-09-23  |  301 b   |  15 lines
  1. on mouseDown me
  2.   set spr=the spriteNum of me
  3.   if bounceButton(spr) then
  4.     set index=char 1 of the name of the member of sprite spr
  5.     puppetSound 1,index&"season"
  6.     updateStage
  7.     repeat while soundBusy(1)
  8.       nothing
  9.     end repeat
  10.     go to movie the moviePath&"L02A"&index
  11.   end if
  12. end
  13.  
  14.  
  15.